The Canadian & World Encyclopedia 1998/The Canadian & World Encyclopedia 1998 - Disc 2.iso/pc/pb/profile.dir/00030_Script_~go to CW

Text File | 1997-07-29 | 402b | 17 lines

global qtrep_return,current_pm
on mousedown
  waitcursor the clickon
  set qtrep_return = the frame

  see_sprite([37,38,39,40,41],false)
  findcw(current_pm)

  if the castnum of sprite 6 <> 0 then
    if the casttype of cast  (the castnum of sprite 6) = #digitalvideo then
--      set the movietime of sprite 6 = 0
      set the movierate of sprite 6 = 1
    end if
  end if
end